﻿Public Class cFacturasDetalle

    Private _idfactura As Integer
    Private _iditemventa As Integer
    Private _itemnombre As String
    Private _precioventa As Integer
    Private _cantidad As Integer
    Private _totallinea As Integer

    Public Sub New(ByVal idfact As Integer, ByVal item As Integer, ByVal cant As Integer, ByVal tlinea As Integer, ByVal pventa As Integer, ByVal inombre As String)
        _idfactura = idfact
        _iditemventa = item
        _cantidad = cant
        _totallinea = tlinea
        _precioventa = pventa
        _itemnombre = inombre
    End Sub

    Public Property Id() As Integer
        Get
            Return _iditemventa
        End Get
        Set(ByVal value As Integer)
            _iditemventa = value
        End Set
    End Property

    Public Property Item() As String
        Get
            Return _itemnombre
        End Get
        Set(ByVal value As String)
            _itemnombre = value
        End Set
    End Property

    Public Property Precio() As Integer
        Get
            Return _precioventa
        End Get
        Set(ByVal value As Integer)
            _precioventa = value
        End Set
    End Property

    Public Property Cantidad() As Integer
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property

    Public Property Total() As Integer
        Get
            Return _totallinea
        End Get
        Set(ByVal value As Integer)
            _totallinea = value
        End Set
    End Property
End Class

